Файл: WhatColor.txt
Дата: 10.04.2014
1:
2:
3:
4: присвоить красный 10 зеленый 11 желтый 13 синий 12 закончить 16
5:
6: рисовать текстВПрямоугольнике 30 0 300 30 'Какого цвета квадрат?'
7: Квадрат_случайного_цвета
8:
9:
10: присвоить х1 350 у1 40 ширина 300 высота 50
11: для красный;желтый;зеленый;синий;закончить
12: вычислить + х2 [х1] [ширина] -1
13: вычислить + у2 [у1] [высота] -1
14: присвоить $ЦветКисти [[$ОбъектЦикла]]
15: рисовать прямоугольник [х1] [у1] [х2] [у2]
16: рисовать текстВПрямоугольнике [х1] [у1] [х2] [у2] [$ОбъектЦикла]
17: рисовать добавитьСенсор [х1] [у1] [х2] [у2] [$ОбъектЦикла]
18: увеличить у1 [высота]
19: следующий
20:
21:
22: функция _$ВЫБОР
23: если [_$ВЫБОР;ОБЪЕКТ] == закончить
24: показать сообщение 'Программа завершена.'
25: СТОП
26: иначе
27: если [_$ВЫБОР;ОБЪЕКТ] == [СЛУЧАЙНЫЙ_ЦВЕТ]
28: показать сообщение 'Правильно!'
29: иначе
30: показать сообщение 'Не правильно.'
31: конец
32: Квадрат_случайного_цвета
33: конец
34: возврат
35:
36: функция Квадрат_случайного_цвета
37: список выбратьСлучайный СЛУЧАЙНЫЙ_ЦВЕТ красный;желтый;зеленый;синий
38: присвоить $ЦветКисти [[СЛУЧАЙНЫЙ_ЦВЕТ]]
39: рисовать прямоугольник 30 30 300 300
40: возврат